2: COMMENT ⊗ VALID 00004 PAGES 3: C REC PAGE DESCRIPTION 4: C00001 00001 5: C00002 00002 BEGIN JOBDAT - JOB DATA AREA 6: C00003 00003 M JOBAC,0,20 PLACE WHERE USER ACS ARE STORED ON UUO CALLS 7: C00007 00004 M JOBRL2,115,1 8: C00011 ENDMK 9: C⊗; 11: ;;BEGIN JOBDAT - JOB DATA AREA 12: SUBTTL JOBDAT 31 AUG 67 13: 14: ;THIS AREA PROVIDES STORAGE OF ITEMS OF INTEREST TO BOTH 15: ;THE MONITOR AND THE USER 16: 17: ;MACRO TO DEFINE SYMBOLS FOR MONITOR USE ONLY 18: ;THESE MAY BE CHANGED TO SUIT MONITOR 19: 20: DEFINE M'(SYMBOL,VALUE,LENGTH) 21: <SYMBOL←←VALUE 22: LOC←←VALUE+LENGTH> 23: 24: ;MACRO TO DEFINE SYMBOLS FOR USER USE 25: ;THESE CANNOT BE CHANGED WITHOUT INVALIDATING OLD SAVED FILES 26: 27: DEFINE U'(SYMBOL,VALUE,LENGTH) 28: <SYMBOL←←VALUE 29: LOC←←VALUE+LENGTH> 30: 31: ;MACRO TO DEFINE PARAMETERS OF INTEREST TO MONITOR ONLY 32: ;THESE MAY BE CHANGED TO SUIT MONITOR 33: ;MUST ASSEMBLE WITH SYSPAR TAPE FIRST 35: M JOBAC,0,20 ;PLACE WHERE USER ACS ARE STORED ON UUO CALLS 36: ;IE RELATIVE 0-17 IN USER AREA 37: M JOBDAC,LOC,17 ;PLACE WHERE HARDWARE ACS(0-16) ARE STORED 38: ;WHEN JOB IS INACTIVE. THESE ARE EITHER THE 39: ;USERS AC IF JOB WAS STOPPED IN USER MODE 40: ;OR ARE THE EXEC IF STOPED IN EXEC MODE 41: ;0-16 ALSO STORED HERE ON CLK INTERRUPTS 42: XP JOBDPG,JOBDAC+PROG ;AC PROG DUMPED HERE 43: XP JOBD15,JOBDAC+15 ;AC 15 DUMPED HERE 44: XP JOBD16,JOBDAC+16 ;AC 16 DUMPED HERE 45: XP JOBD17,JOBDAC+17 ;AC 17 DUMPED HERE 46: U JOBUUO,40,1 ;USER UUO TRAP LOC.(UUO STORED HERE) 47: U JOB41,41,1 ;USER UUO JSR LOCATION 48: ;42 UNUSED (PLEASE SEE JBR OR BH BEFORE SNARFING) 49: M JOBENB,43,1 ;LH=PC CHNG,AR OVF ENABLE/DISABLE APR BITS 50: ;RH=APR CONSO FLAGS FOR USER APR TRAPPING 51: ;SET BY CALL [SIXBIT /APRENB/] 52: U JOBREL,44,1 ;LH=0,RH=HIGHEST REL. ADR. IN USER AREA 53: M JOBTM1,LOC,1 ; SOME TEMP CELLS TOO 54: M JOBTM2,LOC,1 55: M JOBTM3,LOC,1 56: M JOBTM4,LOC,1 57: M JOBTM5,LOC,1 58: M JOBPDL,LOC,1 ; PUSHDOWN LIST FOR GETPDL AND GIVPDL TO USE 59: LOC←←71 60: XP JOBPLN,LOC-JOBPDL 61: U JOBINT,LOC,1 ;TO SEPARATE OLD AND NEW INTERRUPT SYSTEMS 62: XP JOBPRT,LOC ;FIRST LOC PROTECTED BY BEING COPIED INTO MONITOR 63: XP JOBPR1,JOBPRT+1 ;FIRST LOC+1 64: M JOBHCU,LOC,1 ;HIGHEST USER IO CHANNEL IN USE 65: ;ONLY JOBJDA...JOBJDA+C(JOBHCU) ARE COPIED INTO 66: ;MONITOR WHEN JOB IS RUN. 0 MEANS NONE OR 67: ;CHAN. 0 IN USE, -1 MEANS SAVEGET HAS ACTIVE IO 68: 69: M JOBPC,LOC,1 ;JOB PC WHEN JOB INACTIVE 70: U JOBDDT,74,1 ;LH UNUSED,RH=STARTING ADDRESS OF USER DDT 71: XP JOBSAV,JOBDDT-1 ;FIRST LOC.-1 WRITTEN BY SAVE COMMAND 72: M JOBJDA,LOC,20 ;JOB DEVICE ASSIGNMENT TABLE 73: ;LH=UUOS DONE SO FAR,RH=ADR. OF DEVICE DATA BLOCK IN MONITOR 74: XP JOBJMH,JOBHCU-JOBJDA ;JOBHCU-JOBJDA 75: ;USED BY ANYACT ROUT. IN CORE1 76: XP JOBPFI,JOBJDA+17 ;HIGHEST LOC. IN JOB DATA AREA PROTECTED FROM IO 77: XP MJOBCK,JOBPFI-JOBDAC ;AREA CHECKSUMMED DURING SWAPPING 78: 79: ↓JOBPRT←←JOBPRT ;MAKE DOWNWARDS AVAILABLE 80: ↓JOBPFI←←JOBPFI ;MAKE DOWNWARDS AVAILABLE 82: M JOBRL2,115,1 83: U JOBSYM,116,1 ;POINTER TO LOADER AND DDT SYMBOL TABLE POINTER 84: U JOBUSY,117,1 ;POINTER TO UNDEFINED SYMBOL TABLE 85: ;SET BY LOADER, NOT YET USED BY DDT 86: U JOBSA,120,1 ;LH=FIRST LOC NOT LOADED BY RELOCATING LOADER 87: ;RH=STARTING ADDRESS OF USER PROGRAM 88: U JOBFF,121,1 ;FIRST FREE LOCATION IN USER AREA 89: ;USED BY MONITOR TO ASSIGN I/O BUFFERS IN TOP 90: ;OF USER AREA 91: U JOBS41,122,1 ;C(JOB41) SAVED HERE ON SAVE COMMAND 92: ;RESTORE FROM HERE ON GET 93: M JOBEXM,LOC,1 ;LAST LOC EXAMINED OR DEPOSITED USING 94: ;D OR E COMMANDS 95: U JOBREN,124,1 ;REENTER ADDRESS FOR REENTER COMMAND 96: U JOBAPR,125,1 ;PLACE TO TRAP TO IN USER AREA ON APR TRAP 97: ;ENABLED BY APRENB UUO 98: U JOBCNI,126,1 ;APR IS CONIED INTO C(JOBCNI) ON APR TRAP 99: U JOBTPC,127,1 ;PC IS STORED HERE ON USER APR TRAP 100: U JOBOPC,130,1 ;OLD PC IS STORED HERE ON START,DDT,REENTER, 101: ;STARTC COMMANDS 102: U JOBCHN,131,1 ;LH=FIRST LOC AFTER FIRST FORTRAN 4 LOADED PROGRAM 103: ;RH=FIRST LOC AFTER FIRST FORTRAN 4 BLOCK DATA 104: ;TO BE USED FOR JOB CHAINING 105: M JOBFDV,LOC,1 ;DEV. DATA BLOCK ADR. FOR FINISH COMMAND 106: U JOBCOR,133,1 ;SIZE OF CORE FOR JOB ON RUN,SAVE,GET COM. 107: M HINAME,134,1 ;NAME OF UPPER SEGMENT OVER SAVE-GET 108: M HILOC,135,1 ;LOC OF UPPER SEGMENT IN DUMP FILE OVER SAVE-GET 109: ;134-137 USED BY LOADER FOR BLT TO MOVE PROGRAM DOWN(CAN BE REMOVED) 110: XP JOBDA,140 ;FIRST LOC NOT USED BY JOB DATA AREA 111: 112: ;;; BEND